( DER-sig -- <r in sig> )
OP_3 OP_SPLIT OP_NIP OP_1 OP_SPLIT ( sig -- sig[3:4] sig[4:] ) OP_SWAP OP_SPLIT OP_DROP ( sig[4:<sig[3]>] )